program test1 !<<<<< 2,5,2,18,fail-initial
    implicit none
end program test1
